#Originally from ScrolledText.py

# A ScrolledListbox widget feels like a Listbox widget but also has a
# vertical scroll bar on its right.  


# Configuration options are passed to the Listbox widget.
# A Frame widget is inserted between the master and the Listbox, to hold
# the Scrollbar widget.
# Most methods calls are inherited from the Listbox widget; Pack methods
# are redirected to the Frame widget however.

from Tkinter import *
from Tkinter import _cnfmerge

class ScrolledListbox(Listbox):
    def __init__(self, master=None, cnf=None, **kw):
        if cnf is None:
            cnf = {}
        if kw:
            cnf = _cnfmerge((cnf, kw))
        fcnf = {}
        for k in cnf.keys():
            if type(k) == ClassType or k == 'name':
                fcnf[k] = cnf[k]
                del cnf[k]
        self.frame = Frame(master, **fcnf)
        self.vbar = Scrollbar(self.frame, name='vbar')
        self.vbar.pack(side=RIGHT, fill=Y)
        cnf['name'] = 'lbox'
        Listbox.__init__(self, self.frame, **cnf)
        self.pack(side=LEFT, fill=BOTH, expand=1)
        self['yscrollcommand'] = self.vbar.set
        self.vbar['command'] = self.yview

        # Copy geometry methods of self.frame -- hack!
        methods = Pack.__dict__.keys()
        methods = methods + Grid.__dict__.keys()
        methods = methods + Place.__dict__.keys()

        for m in methods:
            if m[0] != '_' and m != 'config' and m != 'configure':
                setattr(self, m, getattr(self.frame, m))

if __name__=='__main__':
	from Tkinter import *

	master = Tk()

	listbox = ScrolledListbox(master, selectmode=SINGLE)
	listbox.pack()

	listbox.insert(END, "a list entry")

	for item in ["one", "two", "three", "four", "two", "three", "four", "two", "three", "four", "two", "three", "four"]:
	    listbox.insert(END, item)
	
	def test():
		
		print listbox.index(ACTIVE)
		print listbox.curselection()
	Button(master, text='hello',command=lambda:test()).pack()
	
	
	listbox2 = ScrolledListbox(master, selectmode=SINGLE)
	listbox2.pack()
	for item in ["one", "two", "three", "four", "two", "three", "four", "two", "three", "four", "two", "three", "four"]:
	    listbox2.insert(END, item)
	mainloop()
